home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / timevent / taskmstr / dbbackup.tsk < prev    next >
Encoding:
Text File  |  1995-05-07  |  509 b   |  24 lines
  1. // Check if SQLADMIN is loaded every 5 secs (unloads when shutdown)
  2. WHILE LOADED SQLADMIN
  3.   WAIT 5
  4. LOOP
  5.  
  6. // SQL is shutdown so it is safe to unload the Database engine
  7. UNLOAD DBENGINE
  8.  
  9. // Don't Backup if Database engine unload failed
  10. IF NOT LOADED DBENGINE
  11.   LOAD BACKUP
  12.   CHANGE_SCREEN "Backup Screen"
  13.   KEYIN F1
  14.   WHILE NOT SCAN_SCREEN "Finished"
  15.     WAIT 15
  16.   LOOP
  17.   UNLOAD BACKUP
  18. ELSE
  19.   ECHO Unable to Backup due to Database engine unload failure!
  20.   CALL LOAD_DB.TSK
  21.   ABORT
  22. ENDIF
  23.  
  24.